home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness:…ecision-Making Strategies / Workplace Effectiveness: Decision-Making Strategies.iso / pc / Files / View.dxr / 00008_PRINT & Write text file.ls < prev    next >
Encoding:
Text File  |  1998-12-16  |  941 b   |  31 lines
  1. global gMasterData
  2.  
  3. on printButton
  4.   if iAmActivated(gMasterData) then
  5.     getPrintData()
  6.     set vThisField to string(getUserArea(gMasterData)) && "field"
  7.     print(the text of member vThisField)
  8.   else
  9.     alert("Printing is unavailable until an activity is completed.")
  10.   end if
  11. end
  12.  
  13. on getPrintData
  14.   set vThisField to string(getUserArea(gMasterData)) && "field"
  15.   set the text of member vThisField to EMPTY
  16.   set vTempText to EMPTY
  17.   put "---- A View from the Top ----------" & RETURN & "Workplace Considerations before you EMBARK." & RETURN after vTempText
  18.   put getBigString() & RETURN & RETURN after vTempText
  19.   put RETURN after vTempText
  20.   set the text of member vThisField to vTempText
  21. end
  22.  
  23. on getBigString
  24.   set vText to EMPTY
  25.   repeat with X = 1 to 2
  26.     put line X of field "print1" & " " after vText
  27.     put the text of member ("view Field" & string(X)) of castLib "Shared" & RETURN after vText
  28.   end repeat
  29.   return vText
  30. end
  31.